home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 21 / Tiger_Disk_021_19xx_Tiger-Crew-Disk_de_Side_A.d64 / d o t s (.txt) next >
Commodore BASIC  |  2023-02-26  |  3KB  |  105 lines
  1. 1 rem:dots
  2. 5 poke53281,12:poke53280,0
  3. 10 print"[144][147]"spc(17)"dots
  4. 20 [153]"               joystickcmdcmdcmdcmdcmdorcmdcmdcmdcmdcmdcmdcmdkeyboard (j/k)close?";
  5. 25 [161]a$:[139]a$[179][177]"j"[175]a$[179][177]"k"[167]25
  6. 26 [153]a$
  7. 30 jk[178][171]1:[139]a$[178]"k"[167]jk[178]0
  8. 40 [133]"skill level(0-10)";sk:[139]sk[179]0[176]sk[177]10[167]40
  9. 50 sk[178](10[171]sk)[173]10:ts[178]200[171]200[172]sk:dt[178]ts[170]25
  10. 60 sc[178]1024:co[178]13[172]4096[170]8[172]256
  11. 70 [153]"load":[129]i[178]1[164]10:[153]"stop (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)":[130]
  12. 80 ys[178]0:vs[178]0:[153]" you:"ys"    c64:"vs
  13. 90 [150][165]bx(lc)[178]([194](lc[170]40)[179][177]32)[170]([194](lc[170]1)[179][177]32)[170]([194](lc[171]40)[179][177]32)[170]([194](lc[171]1)[179][177]32)
  14. 100 [150][165]vh(lc)[178]lc[179][177]2[172][181](lc[173]2)
  15. 110 sl[178]sc[170]450:cl[178]co[170]450:x[178]10:y[178]11:cc[178][194](sl):cr[178][194](cl)
  16. 120 [151]sl,160:[151]cl,7:f[178]0
  17. 130 [139]jk[167]150
  18. 140 [141]930:[137]160
  19. 150 [141]860:[139]pc[178]0[167]150
  20. 160 x[178]x[170]j:y[178]y[170]k:[139]x[179]1[176]x[177]19[176]y[179]1[176]y[177]19[167]x[178]x[171]j:y[178]y[171]k:[137]130
  21. 170 [139]pc[178]99[167]200
  22. 180 [151]sl,cc:[151]cl,cr:sl[178]sl[170]pc:cl[178]cl[170]pc:cc[178][194](sl):[151]sl,160
  23. 190 cr[178][194](cl):[151]cl,7:[137]130
  24. 200 l[178]([194](sl[170]1)[178]81)[170]([194](sl[171]1)[178]81)[170]([194](sl[170]40)[178]81)[170]([194](sl[171]40)[178]81)
  25. 210 [139]l[170](cc[178]32)[178][171]3[167]230
  26. 220 i[178]128:[141]710:[137]130
  27. 230 wh[178]1:ml[178]sl:[141]650:[139][168][165]vh(sl)[167]280
  28. 240 [139]x[177]1[175][165]bx(sl[171]1)[178][171]4[167]bx[178]sl[171]1:[141]720:f[178][171]1
  29. 250 [139]x[179]19[175][165]bx(sl[170]1)[178][171]4[167]bx[178]sl[170]1:[141]720:[137]110
  30. 260 [139]f[167]110
  31. 270 [137]310
  32. 280 [139]y[177]1[175][165]bx(sl[171]40)[178][171]4[167]bx[178]sl[171]40:[141]720:f[178][171]1
  33. 290 [139]y[179]19[175][165]bx(sl[170]40)[178][171]4[167]bx[178]sl[170]40:[141]720:[137]110
  34. 300 [139]f[167]110
  35. 310 wh[178]2:f[178]0:cn[178]0:[139][187](0)[179]sk[167]390
  36. 320 [129]i[178]80[164]720[169]80:[129]j[178]2[164]18[169]2:k[178]sc[170]i[170]j
  37. 330 [139][194](k)[178]32[175][165]bx(k)[178][171]3[167]350
  38. 340 [130]j,i:[137]390
  39. 350 i[178]k:[139][194](i[171]40)[178]32[167]i[178]i[171]40:[137]540
  40. 360 [139][194](i[170]40)[178]32[167]i[178]i[170]40:[137]540
  41. 370 [139][194](i[171]1)[179][177]32[167]i[178]i[170]1:[137]600
  42. 380 [139][194](i[170]1)[179][177]32[167]i[178]i[171]1:[137]600
  43. 390 i[178][181]([181]([187](0)[172]20)[172]40[170]21[172][187](0)[170]sc[170]41):cn[178]cn[170]1:[139][194](i)[179][177]32[167]390
  44. 400 [139][168](([194](i[170]1)[178]81[175][194](i[171]1)[178]81)[176]([194](i[170]40)[178]81[175][194](i[171]40)[178]81))[167]390
  45. 410 [139]sk[177].6[176]cn[177]ts[167]470
  46. 420 [139][165]vh(i)[167]450
  47. 430 [139][165]bx(i[171]40)[178][171]2[176][165]bx(i[170]40)[178][171]2[167]390
  48. 440 [137]540
  49. 450 [139][165]bx(i[171]1)[178][171]2[176][165]bx(i[170]1)[178][171]2[167]390
  50. 460 [137]600
  51. 470 [139][165]vh(i)[167]510
  52. 480 [139]sk[177].6[176]cn[177]d[167]540
  53. 490 [139][165]bx(i[170]40)[178][171]2[175][165]bx(i[171]40)[178][171]2[167]390
  54. 500 [137]540
  55. 510 [139]sk[177].6[176]cn[177]dt[167]600
  56. 520 [139][165]bx(i[170]1)[178][171]2[175][165]bx(i[171]1)[178][171]2[167]390
  57. 530 [137]600
  58. 540 ml[178]i:[141]650
  59. 550 [139][165]bx(ml[171]40)[178][171]4[167]bx[178]ml[171]40:[141]720:f[178][171]1
  60. 560 [139][165]bx(ml[170]40)[178][171]4[167]bx[178]ml[170]40:[141]720:[137]310
  61. 570 [139]f[167]310
  62. 580 [137]110
  63. 590 [139][168]([194](i[171]40)[178]81[175][194](i[170]40)[178]81)[167]390
  64. 600 ml[178]i:[141]650
  65. 610 [139][165]bx(ml[171]1)[178][171]4[167]bx[178]ml[171]1:[141]720:f[178][171]1
  66. 620 [139][165]bx(ml[170]1)[178][171]4[167]bx[178]ml[170]1:[141]720:[137]310
  67. 630 [139]f[167]310
  68. 640 [137]110
  69. 650 cl[178]co[170]ml[171]sc
  70. 660 [151]ml,67
  71. 670 [139][165]vh(ml)[167][151]ml,93
  72. 680 i[178]185:[139]wh[178]2[167]i[178]150
  73. 690 [129]j[178]1[164]wh:[151]cl,0:[141]710:[151]cl,1
  74. 700 [129]l[178]1[164]200:[130]:[151]cl,0:[130]
  75. 710 [129]k[178]1[164]200:[130]:[142]
  76. 720 ys[178]ys[170]1:j[178]3:i[178]200:cl[178]co[170]bx[171]sc:[139]wh[178]2[167]j[178]2:i[178]150:ys[178]ys[171]1:vs[178]vs[170]1
  77. 730 [151]bx,160:[151]cl,1
  78. 740 [129]l[178]1[164]3:[151]cl,j:[141]710:[151]cl,1:[129]k[178]1[164]200:[130]:i[178]i[170]18:[151]cl,j:[130]
  79. 750 [153]" you:"ys"    c64:"vs
  80. 760 [139]ys[170]vs[179]81[167][142]
  81. 770 [153]"":[139]ys[177]vs[167]800
  82. 780 [153]"stop       you lose       "
  83. 790 [137]850
  84. 800 [153]"you win ! ! !"
  85. 850 [151]198,0:[146]198,1:[151]198,0:[153]"load nochmal spielen ?"
  86. 851 [161]s9$:[139]s9$[179][177]"j"[175]s9$[179][177]"n"[167]850
  87. 852 [139]s9$[178]"j"[167][156]:[137]10
  88. 853 [153]"load tschuess !":[128]
  89. 860 j[178]0:k[178]0:pc[178]0
  90. 870 i[178][194](56321)
  91. 880 [139](i[175]1)[178]0[167]pc[178][171]40:k[178][171]1:[142]
  92. 885 [139](i[175]8)[178]0[167]j[178]1:pc[178]1:[142]
  93. 890 [139](i[175]2)[178]0[167]pc[178]40:k[178]1:[142]
  94. 900 [139](i[175]4)[178]0[167]pc[178][171]1:j[178][171]1:[142]
  95. 910 [139](i[175]16)[178]0[167]pc[178]99
  96. 920 [142]
  97. 930 j[178]0:k[178]0:pc[178]0
  98. 940 [161]a$:[139]a$[178]""[167]940
  99. 950 [139]a$[178]"on"[167]pc[178][171]40:k[178][171]1:[142]
  100. 960 [139]a$[178]""[167]j[178]1:pc[178]1:[142]
  101. 970 [139]a$[178]""[167]k[178]1:pc[178]40:[142]
  102. 980 [139]a$[178]"cmd"[167]j[178][171]1:pc[178][171]1:[142]
  103. 990 [139][198](a$)[178]13[167]pc[178]99
  104. 1000 [142]
  105.